home *** CD-ROM | disk | FTP | other *** search
/ Language/OS - Multiplatform Resource Library / LANGUAGE OS.iso / cocktail / front.lha / front / src / Pars.mi < prev    next >
Text File  |  1992-08-18  |  963b  |  45 lines
  1. (* test program for parser *)
  2.  
  3. (* $Id: Pars.mi,v 1.4 1992/08/07 15:13:51 grosch rel $ *)
  4.  
  5. (* $Log: Pars.mi,v $
  6.  * Revision 1.4  1992/08/07  15:13:51  grosch
  7.  * allow several scanner and parsers; extend module Errors
  8.  *
  9.  * Revision 1.3  1991/11/21  14:47:50  grosch
  10.  * new version of RCS on SPARC
  11.  *
  12.  * Revision 1.2  90/06/11  18:45:08  grosch
  13.  * layout improvements
  14.  * 
  15.  * Revision 1.1     89/02/24  13:59:39  vielsack
  16.  * BeginSource is no longer called
  17.  * 
  18.  * Revision 1.0     88/10/04  14:26:57  vielsack
  19.  * Initial revision
  20.  * 
  21.  *)
  22.  
  23. MODULE Pars;
  24.  
  25. IMPORT WriteTok, Character, Path, Checks;
  26.  
  27. FROM Errors    IMPORT BeginErrors, CloseErrors;
  28. FROM Parser    IMPORT Parser;
  29. FROM Idents    IMPORT InitIdents;
  30. FROM Scanner    IMPORT BeginScanner;
  31. FROM StringMem    IMPORT InitStringMemory;
  32. FROM TokenTab    IMPORT InitTokenTable;
  33.  
  34. VAR errors    : CARDINAL;
  35.  
  36. BEGIN
  37.   InitStringMemory;
  38.   InitIdents;
  39.   BeginErrors;
  40.   BeginScanner;
  41.   InitTokenTable;
  42.   errors := Parser ();
  43.   CloseErrors;
  44. END Pars.
  45.